home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / politics.dir / 00317_Script_317 < prev    next >
Text File  |  1994-11-29  |  2KB  |  82 lines
  1. on startMovie
  2.   global sidewallFrame, sidewallMovie
  3.   
  4.   -- set up side wall exits
  5.   put "PPLwall" into sidewallFrame
  6.   put "advwall"  into sidewallMovie
  7.   
  8.   initSearchPath
  9.   
  10.   global qtCastName,qtSprite ----,increment, L
  11.   set qtCastName = "Rubyshoe"
  12.   set qtSprite = 23
  13.   
  14. end startMovie
  15.  
  16. on checkKey
  17.   if the key = RETURN then
  18.     if field "passwordbox" contains "plasma" then
  19.       go to frame "start"
  20.     else
  21.       go to frame "nopass"
  22.     end if
  23.     when keydown then nothing
  24.   end if
  25. end checkkey
  26.  
  27. on firstFrame
  28.   global qtSprite
  29.   set the movieRate of sprite qtSprite = 0
  30.   set the movieTime of sprite qtSprite = 0
  31. end firstFrame
  32.  
  33. on lastFrame
  34.   global qtSprite,qtcastname
  35.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  36. end lastFrame
  37.  
  38. on stopMovie
  39.   sound close 1
  40.   unLoadCast
  41. end stopMovie
  42.  
  43. on stepFwdQT
  44.   global qtSprite,qtcastname
  45.   set the movieRate of sprite qtSprite = 0
  46.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  47.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  48.   end if
  49. end stepFwdQT
  50.  
  51. on stepRevQT
  52.   global qtSprite
  53.   set the movieRate of sprite qtSprite = 0
  54.   if the movieTime of sprite qtSprite = 0 then exit
  55.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  56. end stepRevQT
  57.  
  58. on frameCounter
  59.   global qtSprite
  60.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  61. end frameCounter
  62.  
  63. --on rewindQT
  64. global qtSprite
  65. set the movieRate of sprite qtSprite = -3
  66. --set the movieTime of sprite qtSprite = 0
  67. end rewindQT
  68.  
  69. on pauseQT
  70. global qtSprite
  71. set the movieRate of sprite qtsprite = 0
  72. end pauseQT
  73.  
  74. on playQT
  75. global qtSprite,qtcastName
  76. set the movieRate of sprite qtSprite = 1
  77. end playQT
  78.  
  79. on playQT2
  80. global qtSprite,qtcastName
  81. set the movieRate of sprite qtSprite = 1
  82. end playQT2